with communautes;
with Murs;
--with Ada.Strings.Equal_Case_Insensitive;
--with Ada.Strings.Less_Case_Insensitive;
package Strings is
   type Individu is access String;
   type Cercle is access String;
   type Texte is access String;

   function "=" (i : Individu; j : Individu) return Boolean;
   function "<=" (i : Individu; j : Individu) return Boolean;
   function "=" (u : Cercle; v : Cercle) return Boolean;
   function "<=" (u : Cercle; v : Cercle) return Boolean;

end Strings;
